home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woca viii 90 xmas.d64 / christmas (.txt) next >
Commodore BASIC  |  2007-02-04  |  910b  |  37 lines
  1. 10 REM
  2. 11 REM  COMMODORE 64 CHRISTMAS ALBUM
  3. 12 REM
  4. 13 REM
  5. 14 REM            MUSIC: WAYNE EASTWOOD
  6. 15 REM  SCREENS/SPRITES: H. REX BOUCHER
  7. 16 REM      DESIGN/PROG: STEPHEN MURRI
  8. 17 REM
  9. 18 REM
  10. 19 REM
  11. 20 REM
  12. 21 REM
  13. 30 POKE53280,6:POKE53281,6:PRINT"[147]"
  14. 31 PRINT"NOTE:":PRINT""
  15. 32 PRINT"   FOR MAXIMUM EFFECT, IT IS"
  16. 33 PRINT"   RECOMMENDED THAT THE AUDIO OUTPUT"
  17. 34 PRINT"   BE CONNECTED TO A HIGH QUALITY"
  18. 35 PRINT"   SOUND SYSTEM."
  19. 36 PRINT"ENTER OPTION:":PRINT""
  20. 37 PRINT"   R=RUN CONTINUOUSLY"
  21. 38 PRINT"   S=RUN ONCE, SIT AND WAIT FOR ANY KEY"
  22. 39 GETI$:IFI$=""THENGOTO39
  23. 40 IFI$<>"S"THENIFI$<>"R"THEN GOTO39
  24. 42 IF I$="S"THENPOKE40959,1:GOTO50
  25. 43 POKE40959,0
  26. 50 PRINT"[147]LOADING":PRINT""
  27. 52 POKE198,10
  28. 60 PRINT"LOAD"CHR$(34)"CHRISTMASMUSIC"CHR$(34)",8,1"
  29. 61 PRINT"NEW"
  30. 62 PRINT"LOAD"CHR$(34)"CHRISTMASCODE"CHR$(34)",8,1"
  31. 63 PRINT"NEW"
  32. 64 PRINT"LOAD"CHR$(34)"CHRISTMASROOT"CHR$(34)",8"
  33. 65 POKE198,10
  34. 66 DATA 19,13,13,13,13,13,82,85,78,13
  35. 67 FORI=1TO10:READX:POKE630+I,X:NEXT
  36. 68 POKE56,13:NEW
  37.